home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / obero / Interfaces3_6.lha / Interfaces / Icon.mod < prev    next >
Encoding:
Text File  |  1994-03-06  |  2.5 KB  |  65 lines
  1. (*
  2. (*
  3. **  Amiga Oberon Interface Module:
  4. **  $VER: Icon.mod 40.15 (28.12.93) Oberon 3.0
  5. **
  6. **   © 1993 by Fridtjof Siebert
  7. **   updated for V40 by hartmut Goebel
  8. *)
  9. *)
  10.  
  11. MODULE Icon;
  12.  
  13. IMPORT
  14.   e  * := Exec,
  15.   wb * := Workbench;
  16.  
  17. CONST
  18.   iconName * = "icon.library";
  19.  
  20. VAR
  21.   base * : e.LibraryPtr;
  22.  
  23. (*  next two are OBSOLETE and have been removed *)
  24. PROCEDURE GetIcon          {base,- 42}(name{8}        : ARRAY OF CHAR;
  25.                                        icon{9}        : wb.DiskObjectPtr;
  26.                                        freelist{10}   : wb.FreeListPtr): LONGINT;
  27. PROCEDURE PutIcon          {base,- 48}(name{8}        : ARRAY OF CHAR;
  28.                                        icon{9}        : wb.DiskObjectPtr): BOOLEAN;
  29.  
  30. PROCEDURE FreeFreeList    *{base,- 54}(freelist{8}    : wb.FreeListPtr);
  31. PROCEDURE AddFreeList     *{base,- 72}(freelist{8}    : wb.FreeListPtr;
  32.                                        mem{9}         : e.APTR;
  33.                                        size{10}       : LONGINT): BOOLEAN;
  34. PROCEDURE GetDiskObject   *{base,- 78}(name{8}        : ARRAY OF CHAR): wb.DiskObjectPtr;
  35. PROCEDURE PutDiskObject   *{base,- 84}(name{8}        : ARRAY OF CHAR;
  36.                                        diskobj{9}     : wb.DiskObjectPtr): BOOLEAN;
  37. PROCEDURE FreeDiskObject  *{base,- 90}(diskobj{8}     : wb.DiskObjectPtr);
  38. PROCEDURE FindToolType    *{base,- 96}(toolTypes{8}   : e.APTR;
  39.                                        typeName{9}    : ARRAY OF CHAR): e.LSTRPTR;
  40. PROCEDURE MatchToolValue  *{base,-102}(typeString{8}  : ARRAY OF CHAR;
  41.                                        val{9}         : ARRAY OF CHAR): BOOLEAN;
  42. PROCEDURE BumpRevision    *{base,-108}(VAR newname{8} : ARRAY OF CHAR;
  43.                                        oldname{9}     : ARRAY OF CHAR);
  44.  
  45. (* ---   functions in V36 or higher  (Release 2.0)   --- *)
  46. (* --- REMEMBER: You are to check the version BEFORE you use this ! --- *)
  47. (*      Use DiskObjects instead of obsolete WBObjects            *)
  48. PROCEDURE GetDefDiskObject*{base,-120}(type{0}        : LONGINT): wb.DiskObjectPtr;
  49. PROCEDURE PutDefDiskObject*{base,-126}(diskObject{8}  : wb.DiskObjectPtr): BOOLEAN;
  50. PROCEDURE GetDiskObjectNew*{base,-132}(name{8}        : ARRAY OF CHAR): wb.DiskObjectPtr;
  51. (* ---   functions in V37 or higher   --- *)
  52. PROCEDURE DeleteDiskObject*{base,-138}(name{8}        : ARRAY OF CHAR): BOOLEAN;
  53.  
  54. (* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *)
  55.  
  56. BEGIN
  57.   base :=   e.OpenLibrary(iconName,33);
  58.   IF base=NIL THEN HALT(20) END;
  59.  
  60. CLOSE
  61.   IF base#NIL THEN e.CloseLibrary(base) END;
  62.  
  63. END Icon.
  64.  
  65.